module AMInstructions
    where 

mLabel t a = [((LABEL t a),0)]
mNop = [(NOP,0)]
mUjp t a = [((UJP t a),0)]
mCjp t a = [((CJP t a),0)]
mAdd = [(ADD,(-1))]
mSub = [(SUB,(-1))]
mMult = [(MULT,(-1))]
mDiv = [(DIV,(-1))]
mEq = [(EQ6,(-1))]
mLt = [(LT6,(-1))]
mGt = [(GT6,(-1))]
mAnd = [(AND,(-1))]
mNot = [(NOT,(0))]
mOr = [(OR,(-1))]
mPush n = [(PUSH n,1)]
mFetch a vs = [(FETCH (buscVar vs a),(1))] 
mDup = [(DUP,1)]
mStore a vs = [(STORE (buscVar vs a),(-1))]
mWrite a vs = [(WRITE (buscVarTipo vs a),-1)]
mRead = [(READ,1)]
mLength a vs = [(LENGTH (buscVarTipo vs a),1)]
mPop = [(POP,-1)]
